Function PressEnter
  wait(2)
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.SendKeys "~"
  Set WshShell = nothing
End Function